5 REM   ******************************
10 REM  ** INSPIRE D'UN ARTICLE DE  **
15 REM  ** JIM BUTTERFIELD DANS     **
20 REM  ** 'COMPUTE!', OCTOBRE '84. **
25 REM  **                          **
30 REM  ** PAROLES:                 **
35 REM  **   GILLES VIGNEAULT       **
40 REM  ** MUSIQUE:                 **
45 REM  **   GILLES VIGNEAULT ET    **
50 REM  **   GASTON ROCHON          **
55 REM  ** ARRANGEMENT:             **
60 REM  **   ROBERT GUYOT           **
65 REM  ******************************
90 POKE53280,12:POKE53281,0
100 PRINTCHR$(147);CHR$(154)
101 READS:IFS=0GOTO109
102 READS$:GOSUB1000
103 READX1,Y1,X2,Y2,X3,Y3
104 GOTO101
109 RESTORE:PRINTCHR$(19);CHR$(5)
110 L1=54272:L2=54279:L3=54286
120 H1=L1+1:H2=L2+1:H3=L3+1
130 V1=L1+4:V2=L2+4:V3=L3+4
140 POKE54296,15
150 POKEV1+1,9:POKEV1+2,0
160 POKEV2+1,36:POKEV2+2,36
170 POKEV3+1,18:POKEV3+2,170
180 T=TI
200 POKEV1,16:POKEV2,32:POKEV3,16
210 READS:IFS=0GOTO285
212 READS$:GOSUB1000
220 READX1,Y1,X2,Y2,X3,Y3
230 IFX1THENPOKEH1,X1:POKEL1,Y1:POKEV1,17
240 IFX2THENPOKEH2,X2:POKEL2,Y2:POKEV2,33
250 IFX3THENPOKEH3,X3:POKEL3,Y3:POKEV3,17
260 T=T+S-10
270 IFT>TIGOTO270
280 GOTO200
285 PRINT"  BON ANNIVERSAIRE, DE LA PART DE..."
286 FORT=1TO800:NEXT
288 PRINT"  [211]  [211]  [211]  PAPA !"
290 FORJ=L1TO54296:POKEJ,0:NEXTJ
295 PRINT"[154]";:END
300 DATA 30,"  MON",32,94,32,94,0,0
310 DATA 30," CHER",28,214,34,75,0,0
320 DATA 30," A",25,177,38,126,0,0
330 DATA 60,"LAIN,",38,126,25,177,12,216
340 DATA 15,"",0,0,0,0,0,0
350 DATA 30,"  C'EST",32,94,32,94,0,0
360 DATA 30," A",28,214,34,75,0,0
370 DATA 30," TON",25,177,38,126,0,0
380 DATA 60," TOUR",43,52,34,75,8,147
390 DATA 15,"",0,0,0,0,0,0
400 DATA 30,"  DE",28,214,34,75,0,0
410 DATA 30," TE",34,75,38,126,0,0
420 DATA 30," LAIS",43,52,43,52,0,0
430 DATA 45,"SER",38,126,38,126,7,53
440 DATA 15," P",0,0,0,0,0,0
450 DATA 30,"AR",38,126,28,214,0,0
460 DATA 45,"LER",38,126,32,94,9,159
470 DATA 15," D",0,0,0,0,0,0
480 DATA 30,"'A",38,126,34,75,0,0
490 DATA 75,"MOUR...",38,126,32,94,6,108
510 DATA 30,"  MON",32,94,32,94,0,0
520 DATA 30," CHER",28,214,34,75,0,0
530 DATA 30," A",25,177,38,126,0,0
540 DATA 60,"LAIN,",38,126,25,177,12,216
550 DATA 15,"",0,0,0,0,0,0
560 DATA 30,"  C'EST",32,94,32,94,0,0
570 DATA 30," A",28,214,34,75,0,0
580 DATA 30," TON",25,177,38,126,0,0
590 DATA 60," TOUR",43,52,34,75,8,147
600 DATA 15,"",0,0,0,0,0,0
610 DATA 30,"  DE",28,214,34,75,0,0
620 DATA 30," TE",34,75,38,126,0,0
630 DATA 30," LAIS",43,52,43,52,0,0
640 DATA 45,"SER",38,126,38,126,7,53
650 DATA 15," P",0,0,0,0,0,0
660 DATA 30,"AR",25,177,34,75,0,0
670 DATA 45,"LER",32,94,32,94,9,159
680 DATA 15," D",0,0,0,0,0,0
690 DATA 30,"'A",28,214,28,214,0,0
700 DATA 75,"MOUR.",25,177,25,177,6,108
710 DATA 0
1000 PRINTS$;:IF RIGHT$(S$,1)<"0"THENPRINT
1010 RETURN